1 POKE788,49:POKE808,225
4 PRINTCHR$(14);CHR$(8)
5 POKE 53281,14:POKE53280,4:REM BACKGR. HELLBLAU,RAHMEN VIOLETT
6 FI$="F.B.[211]OFTWARE-[208]ROJECTS[145]"
10 DIM R(11),A$(11):POKE 650,128
790 X=3
800 V=61:PRINT"[147][144]  ********** [200]ASE UND [215]OLF ***********"
801 PRINT"  [197]IN [200]ASE HAT SICH IN EINEM [204]ABYRINTH"
802 PRINT"  VERIRRT.  [197]IN [215]OLF IST IHM  AUF  DER":PRINT"  [211]PUR."
803 PRINT"   [201]M  [204]ABYRINTH  LIEGEN  VERSCHIEDENE    [196]INGE,  DIE DER [200]ASE";
804 PRINT" FRESSEN  UND SO"
805 PRINT"  [208]UNKTE SAMMELN KANN."
806 PRINT"      [193]CHTE AUCH AUF [196]EINE [218]EIT !     [146]"
810 PRINT"  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
811 PRINT"  [221] [196]IE [194]ESTEN 10 [211]PIELER [221]"
812 PRINT"  [171][192][192][206]AME[192][192][192][192][192][192][192][192][178][192][208]UNKTE[192][179] [211]PIELSTART"
813 PRINT"  [221]              [221] [160][160][160][160][160][160][160][221]    MIT"
814 PRINT"  [221]              [221][160] [160][160][160][160][160][160][221]"
815 PRINT"  [221]              [221][160] [160][160][160][160][160][160][221]  '[198][197][213][197][210]'"
816 PRINT"  [221]              [221][160] [160][160][160][160][160][160][221]"
817 PRINT"  [221]              [221] [160][160][160][160][160][160][160][221]"
818 PRINT"  [221]              [221] [160][160][160][160][160][160][160][221]"
819 PRINT"  [221]              [221] [160][160][160][160][160][160][160][221]"
820 PRINT"  [221]              [221] [160][160][160][160][160][160][160][221]"
821 PRINT"  [221]              [221][160] [160][160][160][160][160][160][221]  ([208]ORT 2)"
822 PRINT"  [221]              [221][160] [160][160][160][160][160][160][221]"
823 PRINT"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][189]"
824 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145]"
825 FOR I=1 TO 10:PRINT""A$(I);TAB(19)R(I):NEXT:PRINT"[144]":PRINTFI$
826 IF (NOT(PEEK(56320))AND16) THEN830
827 GOTO 826
829 U=0:Z=R(1):N=0
830 REM
999 A=2:B=10:C=36:D=4:HV=G-74*N:N=N+1
1000 Z=R(1):PRINT"[147]                                      [146]"
1001 PRINT" [146]  .   .   .   *    /   .     /  .    [146]"
1002 PRINT" [146]             [146].            [146]         [146]  [146]"
1003 PRINT" [146]             [146]             [146]*        [146]  [146]"
1004 PRINT" [146].            [146]             [146]         [146]  [146]"
1005 PRINT" [146]             [146]        [146].      .    /   [146]"
1006 PRINT" [146]             [146]        [146]              [146]  [146]"
1007 PRINT"              [146]/       [146].             [146]  "
1008 PRINT" [146]             [146]        [146]              [146]  [146]"
1009 PRINT" [146]             [146]        [146]              [146]  [146]"
1010 PRINT" [146]             [146] .      [146]              [146]  [146]"
1011 PRINT" [146]/            [146]        [146]              [146]  [146]"
1012 PRINT" [146]             [146]        [146]/             [146]* [146]"
1013 PRINT" [146] .       .           [146]              [146]  [146]"
1014 PRINT" [146].     /      [146].       [146]              [146]  [146]"
1015 PRINT" [146]             [146]        [146]              [146]  [146]"
1016 PRINT" [146]             [146]     .                [146]/ [146]"
1017 PRINT" [146]             [146]*       [146]/             [146]  [146]"
1018 PRINT" [146]             [146]        [146]              [146]  [146]"
1019 PRINT" [146]*    .   /           [146]   .       .    [146]"
1020 PRINT"                                      [146]":PRINTFI$
1220 JS=(NOT(PEEK(56320)))
1230 A1=A:B1=B
1240 IF JS AND 8 THEN A=A+1:GOTO 1280
1250 IF JS AND 4 THEN A=A-1:GOTO 1280
1260 IF JS AND 1 THEN B=B-1:GOTO 1280
1270 IF JS AND 2 THEN B=B+1
1280 F=PEEK(1024+A+40*B)
1290 IF F=160 THEN A=A1:B=B1:GOTO 1360
1300 IF F=46 THEN G=G+1
1310 IF F=47 THEN G=G+3
1320 IF F=42 THEN G=G+5
1330 IF A>37 THEN A=2:B=10
1340 IF A<2 THEN A=37:B=10
1350 POKE 1024+A1+40*B1,32:POKE 1024+A+40*B,72
1360 C1=C:D1=D
1370 F=PEEK(1024+(C+1)+40*D):IF F<>160 AND A>C THEN C=C+1:GOTO1410
1380 F=PEEK(1024+(C-1)+40*D):IF F<>160 AND A<C THEN C=C-1:GOTO1410
1390 F=PEEK(1024+C+40*(D+1)):IF F<>160 AND B>D THEN D=D+1:GOTO1410
1400 F=PEEK(1024+C+40*(D-1)):IF F<>160 AND B<D THEN D=D-1
1410 F1=F
1420 IF F=160 THEN C=C1:D=D1:GOTO 1490
1430 IF F=72 OR (A=C AND B=D) THEN V=0:U=U+74-74*N-G:HV=HV+U:GOTO 999
1440 POKE 1024+C+40*D,87:POKE 1024+C1+40*D1,F1
1450 PRINT"[210]ECORD:";TAB(10)"[208]UNKTE:";TAB(20)"[204]EBEN:";TAB(30)"[218]EIT:"
1460 PRINT"  ";Z;TAB(11);G;TAB(21);X;TAB(30);INT(V);"[157] "
1470 V=V-0.25
1480 IF V<=0 THEN X=X-1:V=61:GOTO 999
1490 IF X<1 THEN GOSUB 1540:X=3:G=0:N=0:GOTO 790
1500 IF G=74*N+HV AND V>0 THEN 999
1530 GOTO 1220
1540 IF G<=R(10) THEN RETURN
1550 NA$="": IC=1:PRINT"[147][196]EIN [206]AME: [164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
1552 PRINT"";
1554 GET TA$
1555 IF(TA$>CHR$(31) AND TA$<CHR$(91)) AND IC<15 THEN GOSUB 1600
1556 IF(TA$>CHR$(192) AND TA$<CHR$(219)) AND IC<15 THEN GOSUB 1600
1557 IF(TA$=CHR$(20)ORTA$=CHR$(157))ANDIC>1THEN GOSUB 1601
1558 IF TA$=CHR$(13) THEN 1560
1559 GOTO 1554
1560 FOR I=10 TO 1 STEP-1
1562 IF G>R(I) THEN A$(I+1)=A$(I):A$(I)=NA$:R(I+1)=R(I):R(I)=G
1564 NEXT I:G=0:GOTO 790
1599 END
1600 NA$=NA$+TA$:IC=IC+1:PRINTTA$;:RETURN
1601 NA$=LEFT$(NA$,LEN(NA$)-1):PRINT"[157][164][157]";:IC=IC-1:RETURN